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-- DebugProcess.mesa 
-- Edited by: 

Sandman on May 25, 1978 4:5G PM 

Barbara on June 21, 1978 9:03 AM 

DIRECTORY 

ControlDefs: FROM "controldef s" USING [FrameHandle, NullFrame], 
DebugContextDefs: FROM "debugcontextdef s" USING [ResetContext] , 
DebuggerDefs: FROM "debuggerdefs" USING [ 

addbitaddrs, CatchFrame, DumpCatchFrame, DumpNoSymbols , FrameRelBPC, 

fullsymaddress, GetValue, NoPreviousFrame, PreviousFrame, 

SOPointer, SymbolObject . SymFrameHandle, WriteFrameLocus, WriteSource] , 
DebugMiscDefs: FROM "debugmiscdef s" USING [ 

ControlDEL, CopyRead, InterpretString, LookupFail, 

StringExpressionToNumber, Wri teEOL], 
DebugSymbolDefs: FROM "debugsymboldef s" USING [ 

DAcquireSymbolTable, DReleaseSymbolTable, SymbolsForFrame] , 
DebugUtil ItyDefs: FROM "debugutil i tydef s" USING [ 

GetCurrentStateFromPSB, MREAD, SREAD, Val idatePSB] . 
DIActionDefs: FROM "diactiondefs" USING [CleanUp. espTosop], 
DIDefs: FROM "didefs" USING [ESPointer], 
lODefs: FROM "iodefs" USING [ 

CR, DEL, ReadChar, Rubout, SP, WriteChar, WriteOctal, WriteString] , 
ProcessDefs: FROM "processdef s" USING [ 

CurrentPSB, Empty, MonitorLock, ProcessHandle , PSB], 
SDDefs: FROM "sddefs" USING [SD. sFirstProcess , sLas tProcess] , 
StreamDefs: FROM "streamdefs" USING [ControlDELtyped] , 
SymbolTableDefs: FROM "symboUabledef s" USING [NoSymbolTable] , 
SymDefs: FROM "symdefs" USING [ 

CBTIndex, CBTNull, CSEIndex, CTXIndex, CTXNull, ISEIndex, SENull]; 

DebugProcess : PROGRAM 

IMPORTS DebugContextDefs. DebuggerDefs, DebugMiscDefs, DebugSymbolDefs, 

DebugUtil ityDefs, DIActionDefs, lODefs, StreamDefs, SymbolTableDefs 
EXPORTS DebugContextDefs 
SHARES ProcessDefs = 

BEGIN 

PSB: TYPE = ProcessDefs . PSB ; 

ProcessHandle: TYPE = ProcessDefs .ProcessHandle; 

SOPointer: TYPE = DebuggerDefs .SOPointer ; 

InvalidPSB: PUBLIC SIGNAL [psb: UNSPECIFIED] « CODE; 

SetProcessContext: PUBLIC PROCEDURE [p: STRING] = 
BEGIN 

psb: ProcessHandle <- StringToPSB[p] ; 

DebugContextDefs .ResetContext[FrameFromPSB[psb] , psb]; 
RETURN 
END; 

StringToPSB: PROCEDURE [p: STRING] RETURNS [psb: ProcessHandle] - 
BEGIN 
FindPSB: PROCEDURE [esp: DIDefs. ESPointer] - 

BEGIN OPEN ProcessDefs, DebuggerDefs; 

so: SymbolObject; 

sop: SOPointer ^ @so; 

DIActionDefs ,espTosop[esp, sop]; 

psb ^ LOOPHOLE[GetValue[sop], ProcessHandle]; 

RETURN 

END; 

BEGIN 

IF p[0] IN ['0. . '9] THEN 

psb <- LOOPHOLE[DebugMiscDef s .StringExpressionToNumber[p, 8] .ProcessHandle] 
ELSE DebugMiscDefs. InterpretString[p. FindPSB, TRUE I ANY => GOTO signalOnce]; 
IF ~DebugUtilityDefs.ValidatePSB[psb] THEN SIGNAL Inval idPSB[psb]; 
EXITS 

signalOnce => 

BEGIN DIActionDefs. CleanUp[]: SIGNAL DebugMiscDefs .LookupFail[p] ; END; 
END; 
RETURN 
END; 

ListProcesses: PUBl IC PROCEDURE « 
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BEGIN OPEN DebugUtilityDefs. SDDefs; 

fakePSB: ProcessHandle <- SREAD[0SD[sl-"irstProcess]]; 

lastPSB: ProcessHandle ^ SREAD[@SD[sLastProcess]] ; 

DO 

IF Va1idatePSB[fakePSB] AND StateOK[f akePSB] THEN DumpPSB[f akePSB] ; 

IF fakePSB » lastPSB THEN EXIT; 

fakePSB <- fakePSB + SIZE[PSB]; 

DebugMiscDefs.WriteEOL[]; 

IF StreaniDefs.ControlDELtyped[] THEN SIGNAL DebugMiscDef s .ControlDEL; 

ENDLOOP; 
RETURN 
END; 

StateOK: PROCEDURE [psb: ProcessHandle] RETURNS [BOOLEAN] - 
BEGIN 

localPSB: PSB; 

DebugMiscDefs.CopyRead[from: psb, to: 61ocalPSB, nwords: SIZE[PSB]]; 
RETURN[localPSB. state ^ dead] 
END; 

DumpProcessStack: PROCEDURE [psb: ProcessHandle] « 
BEGIN 

c: CHARACTER; 

head: ProcessHandle <- psb; 
DO 

DebugMiscDefs.WriteEOL[]; 
IODefs.WriteString[" >"L]; 
c ^ IODefs.ReadChar[]; 
IODefs.WriteChar[c]; 
FROM 
«> IF (psb<-GetNextPSB[psb])= head OR psb = NIL THEN EXIT 

ELSE BEGIN DebugMi scDef s . Wri teEOL[] ; DunipPSB[psb] ; END; 
«> DumpPriority[psb]; 
lODefs.DEL => EXIT; 

=> BEGIN DebugMiscDefs.WriteEOL[]; DumpRoot[psb] ; END; 
=> BEGIN DebugMiscDefs.wri teEOL[]; DumpSource[psb] ; END; 
=> IODefs.WriteString[" --Options are: N. P, Q. R, S"L]; 



GetNextPSB: PROCEDURE [psb: ProcessHandle] RETURNS [ProcessHandle] = 
BEGIN OPEN ProcessDefs, SDDefs, DebugUtilityDefs; --from PSB array 
firstPSB: ProcessHandle <- SREAD[@SD[sFirstProcess]]; 
lastPSB: ProcessHandle ♦- SREAD[@SD[sLastProcess]] ; 
head: ProcessHandle ♦- psb; 
DO 

psb <- IF psb # lastPSB THEN psb+SIZE[PSB] ELSE firstPSB; 

IF psb - head THEN GOTO done; 

IF ValidatePSB[psb] AND StateOK[psb] THEN EXIT; 

REPEAT 

done => RETURN[NIL]; 

ENDLOOP; 
RETURN[psb] 
END; 

DisplayQueue: PUBLIC PROCEDURE [q: STRING] = 
BEGIN 

qHead: ProcessHandle; 
cv: BOOLEAN; 

[qHead, cv] *- StringToQueue[q] ; 
IF qHead = NIL OR (qHead ^ StartOueue[qHead , cv]) - NIL THEN 

BEGIN IODefs.WriteString[" Queue emptyI"L]; RETURN END; 
DumpPSB[qHead]; 
DumpQueueStack[qHead] ; 
RETURN 
END; 

StartQueue: PROCEDURE [psb: ProcessHandle, cv: BOOLEAN] 
RETURNS [ProcessHandle] « 
BEGIN 

cleanupLink: ProcessHandle; 

IF ~cv THEN HETURN[DebugUtilityDefs.SRFAD[@psb.link]]; 
cleanupLink <- DebugUtil i tyDefs .SREAD[0psb . cleanup] ; 

IF CleanupLink « NIL THEN RE rURN[DebugUti HtyDef s .SREAD[0psb . 1 ink]] ; 
UNTIL cleanupLink « NIL OR cleanupLink = psb DO 
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ENDLOOP; 


RETURN 
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psb <- cleanupLink; 

cleanupLink <- DebugUtil ityDefs.SREAD[0cleanupLink. cleanup]; 

ENDLOOP; 
RETURN[IF CleanupLink - NIL THEN psb ELSE NIL]; 
END; 

DumpQueueStack: PROCEDURE [psb: ProcessHandle] » 
BEGIN 

c: CHARACTER; 

head: ProcessHandle <- psb; 
DO 

D0bugMiscDefs.WriteEOL[]; 
lODefs.WriteStringC" >"L]; 
c *- IODefs.ReadChar[]; 
IODefs.WriteChar[c]; 
SELECT c FROM 

'n, 'N »> IF (psb ^ DebugUti1ityDefs.SREAD[@psb.link])« head THEN EXIT 

ELSE BEGIN DebugMiscDef s . WriteEOL[] ; DumpPSB[psb] ; END; 
'p, 'P => DumpPriority[psb]; 
'q. 'Q, lODefs.DEL => EXIT; 

'r, 'R => BEGIN DebugMiscDef s .WriteEOL[] ; DumpRoot[psb] ; END; 
ENDCASE »> IODefs.WriteString[" --Options are: N, P, Q, R"L]; 
ENDLOOP; 
RETURN 
END; 

StringToQueue: PROCEDURE [q: STRING] RETURNS [qHead: ProcessHandle, cv: BOOLEAN] 
BEGIN OPEN DebugUtil ityDefs; 
fail : BOOLEAN <- FALSE; 
FindQueue: PROCEDURE [esp: DIDef s . ESPointer] » 

BEGIN OPEN ProcessDefs, DebuggerDef s ; 

so: SymbolObject; 

sop: SOPointer <- 0so; 

mLock: MonitorLock; 

PSBBase: CARDINAL = 0; 

found: BOOLEAN; 

DIActionDef s .espTosop[esp , sop]; 

BEGIN OPEN sop.stbase; 

WITH (seb+UnderType[sop.tsei]) SELECT FROM 

record => IF fieldctx = MonitorLockCtxIndex THEN GOTO done; 
ENDCASE; 

[found, cv] *- SearchForMonitorLock[sop] ; 

IF -found THEN GOTO fail; 

EXITS 

done => cv ^ FALSE; 

fail => BEGIN fail ♦- TRUE; RETURN END; 

END; 

mLock <- LOOPHOLE[GetValue[sop], MonitorLock]; 

qHead <- IF mLock. queue = Empty THEN NIL ELSE mLock. queue + PSBBase; 

RETURN 

END; 

BEGIN 

IF q[0] IN ['0. . '9] THEN 

BEGIN 

qHead *- SREAD[DebugMiscDef s .StringExpressionToNumber[q , 8]]; 

IODefs.WriteString["condition variable? [Y or N]"L]; 

cv ^ YesNo[]; 

END 
ELSE DebugMiscDef s . InterpretString[q , FindQueue, TRUE I 

ANY => GOTO signalOnce]; 
EXITS 

SignalOnce => BEGIN DIActionDef s .CleanUp[] ; fail <- TRUE; END; 
END; 

IF fail THEN SIGNAL DebugMiscDef s . LookupFail [q] ; 
RETURN 
END; 

YesNo: PROCEDURE RETURNS [BOOLEAN] « 
BEGIN OPEN lODefs; 
DO 

SELECT ReadChar[] FROM 

•y,'Y,CR,SP => BEGIN Wri teString[" yes"L]; RETURN[TRUE] END; 
'n,'N «> BEGIN Wr i teString[ " no"L]; RE1UHN[FALSE] END; 
DEL «> SIGNAL Rubout; 
ENDCASE »> WriteChar['?]; 
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ENDLOOP; 
RETURN[FALSE]; 
END; 

SearchForMonitorLock: PROCEDURE [sop: SOPointer] RETURNS [found, cv: BOOLEAN] ■ 
BEGIN OPEN DebuggerDefs, SymDefs; 
cbti: CBTIndex; 
c: CTXIndex *- CTXNull ; 

WITH (sop.stbase.seb + sop. stbase.UnderType[sop. tsei]) SELECT FROM 
record «> IF monitored THEN c +- fieldctx 
ELSE IF fieldctx « ConditionCtxIndex THEN 
BEGIN OPEN sop.stbase; 

sop.baddr ♦- addbitaddrs[fun symaddress[sop] , sop.baddr]; 
sop.sei <- FirstCtxSe[f ieldctx] ; 
sop. tsei ♦- (seb+sop.sei) . idtype; 
RETURN[TRUE, TRUE]; 
END; 
transfer => IF mode = program THEN 
BEGIN OPEN sop.stbase; 
cbti <- (seb+sop.sei) . idinfo; 

IF cbti # CBTNun THEN c ♦- (bb+cbti) . localCtx; 
END; 
ENDCASE; 
IF c = CTXNun THEN RETURN[FALSE , FALSE]; 
RETURN[SearchCtxForLock[sop. c], FALSE] 
END; 

MonitorLockCtxIndex: SymDefs .CTXIndex ^ L00PH0LE[8]; 
ConditionCtxIndex: SymDefs .CTXIndex <- LOOPHOLE[10]; 

SearchCtxForLock: PROCEDURE [sop: SOPointer, c: SymDefs .CTXIndex] 
RETURNS [BOOLEAN] « 
BEGIN OPEN sop.stbase; 
sei: SymDefs. ISEIndex; 
tsei: SymDefs. CSEIndex; 

FOR sei ^ FirstCtxSe[c], NextSe[sei] UNTIL sei = SymDefs .SENull DO 
--look for the type of sei = MONITORLOCK 
tsei <- UnderType[(seb+sei) . idtype]; 
WITH (seb+tsei) SELECT FROM 

record => IF fieldctx - MonitorLockCtxIndex THEN 
BEGIN 

sop.sei <- sei; sop. tsei <- (seb+sei) . idtype; 
RETURN[TRUE] 
END; 
ENDCASE; 
ENDLOOP; 
RETURN[FALSE] 
END; 

FrameFromPSB: PROCEDURE [psb: ProcessHandle] RETURNS [ControlDef s . FrameHandle] 
--get the frame for the currently running process from the StateVector 
BEGIN OPEN DebugUtilityDefs; 
RETURN[IF psb H SREAD[ProcessDef s .CurrentPSB] THEN SREAD[@psb. frame] 

ELSE SREAD[@GetCurrentStateFromPSB[].dest]] 
END; 

DisplayProcess: PUBLIC PROCEDURE [p: STRING] « 
BEGIN 

psb: ProcessHandle ; 
DumpPSB[psb <- StringToPSB[p]] ; 
DumpProcessStack[psb]; 
RETURN 
END; 

DumpPSB: PROCEDURE [psb: ProcessHandle] « 
BEGIN OPEN DebuggerDefs; 
frame: ControlDefs . FrameHandle; 

IF -DebugUtilityDefs. ValidatePSB[psb] THEN SIGNAL Inval idPSB[psb]; 
DebugMiscDefs.WriteEOL[]; 

IODefs.WriteString["PSB: "L]; lODef s .WriteOctal [psb] ; 
IODefs.WriteString[". "L]; 
DumpWai ting[psb]; 

IF (frame «- FrameFromPSB[psb]) » Con trolDef s . Nul IFrame THEN RETURN; 
IF CatchFrame[f rame] THEN DumpCatchFrame[f rame] 

ELSE ShowFrame[f rame]; 
RETURN 
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END; 

ShowFrame: PROCEDURE [frame: ControlDef s . FrameHandle]- 
BEGIN OPEN DebuggerDefs. DebugSymbolDef s; 
f: SymFrameHandle; 
BEGIN 
f.stbase ^ DAcquireSymbolTab1e[Symbo1sForFrame[f rame I 

Symbonab1eDefs.NoSymbo1Tab1e--[seg]-- »> GOTO nosym] I 

SymbolTab1eDefs.NoSymbo1Table--[seg]-- «> GOTO nosym]; 
f.faddr ^ frame; 
WriteFrameLocus[f , FALSE]; 
DRe1easeSymbolTablG[f .stbase]; 
EXITS 

nosym => DumpNoSymbo1s[frame]; 
END; 
RETURN 
END; 

DumpSource: PROCEDURE [psb: ProcessHandle]- 
BEGIN OPEN DebuggerDefs, DebugUtil i tyDef s ; 
frame: ControlDef s .FrameHandle ♦- FrameFromPSB[psb] ; 
WriteSource[MREAD[@frame.access1ink]. FrameRelBPC[f rame] , TRUE 1 
Symbol Tab 1 eDef s.NoSymbol Table-- [seg]-- => 

BEGIN IODefs.WriteString[" No symbol table. "L]; CONTINUE END]; 
RETURN 
END; 

DumpRoot: PROCEDURE [psb: ProcessHandle] « 
BEGIN OPEN DebuggerDefs; 

f: ControlDefs. FrameHandle <- FrameFromPSB[psb]; 
DO 

f <- PreviousFrame[f I NoPreviousFrame => EXIT]; 

ENDLOOP; 
IF f = ControlDefs, NullFrame THEN RETURN; 
IF CatchFrame[f] THEN OumpCatchFrame[f ] ELSE ShowFrame[f ]; 
RETURN 
END; 

DumpWaiting: PROCEDURE [psb: ProcessHandle] « 
BEGIN OPEN lODefs; 
localPSB: PSB; 

DebugMiscDefs.CopyRead[from: psb. to: QlocalPSB, nwords: SIZE[PSB]]; 
IF localPSB. enterFailed THEN WriteString["wai ting ML. "L] 
ELSE IF localPSB. waitingOnCV THEN Wri teString["waiting CV. "L]; 
RETURN 
END; 

DumpPriority: PROCEDURE [psb: ProcessHandle] « 
BEGIN 

localPSB: PSB; 

DebugMiscDefs.CopyRead[from: psb, to: QlocalPSB, nwords: SIZE[PSB]]; 
IODefs.WriteString["riority "L]; 
IODefs.WriteOctal[ local PSB. priority]; 
RETURN 
END; 

END.. 



